home *** CD-ROM | disk | FTP | other *** search
/ Let's Discover Tennessee! / Let's Discover Tennessee!.iso / pc / FILES / GEO.dxr / 00524_citiesScan.ls < prev    next >
Encoding:
Text File  |  2001-06-27  |  663 b   |  20 lines
  1. global citiesDone, numDone, currentField
  2.  
  3. on exitFrame me
  4.   if citiesDone = 1 then
  5.     go(marker("CitiesEnd"))
  6.   else
  7.     currentField = "field" & numDone + 1
  8.     member(currentField).text = member(currentField).text & "C"
  9.     member(currentField).text = member(currentField).text & "I"
  10.     member(currentField).text = member(currentField).text & "T"
  11.     member(currentField).text = member(currentField).text & "I"
  12.     member(currentField).text = member(currentField).text & "E"
  13.     member(currentField).text = member(currentField).text & "S"
  14.     sprite(numDone + 31).visible = 1
  15.     citiesDone = 1
  16.     numDone = numDone + 1
  17.   end if
  18.   unloadMember(705, 706)
  19. end
  20.